本报告于2017-10-27 16:17:18时生成。
libs <- c("plotly", "data.table", "lubridate", "dplyr", "stringr", "tidyr", "jiebaR", "wordcloud2", "webshot", "htmlwidgets")
for (i in libs){
if( !is.element(i, .packages(all.available = TRUE)) ) {
install.packages(i)
}
library(i,character.only = TRUE)
}
if(!file.exists("output")) {
dir.create("output")
}
sessionInfo()
## R version 3.3.3 (2017-03-06)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 15063)
##
## locale:
## [1] LC_COLLATE=Chinese (Simplified)_China.936
## [2] LC_CTYPE=Chinese (Simplified)_China.936
## [3] LC_MONETARY=Chinese (Simplified)_China.936
## [4] LC_NUMERIC=C
## [5] LC_TIME=Chinese (Simplified)_China.936
##
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
##
## other attached packages:
## [1] htmlwidgets_0.9 webshot_0.4.2 wordcloud2_0.2.0
## [4] jiebaR_0.9.1 jiebaRD_0.1 tidyr_0.7.1
## [7] stringr_1.2.0 dplyr_0.7.4 lubridate_1.6.0
## [10] data.table_1.10.4 plotly_4.7.1.9000 ggplot2_2.2.1.9000
##
## loaded via a namespace (and not attached):
## [1] Rcpp_0.12.13 plyr_1.8.4 bindr_0.1
## [4] tools_3.3.3 digest_0.6.12 jsonlite_1.5
## [7] evaluate_0.10 tibble_1.3.4 gtable_0.2.0
## [10] viridisLite_0.2.0 pkgconfig_2.0.1 rlang_0.1.2
## [13] yaml_2.1.14 bindrcpp_0.2 httr_1.3.1
## [16] knitr_1.17 rprojroot_1.2 grid_3.3.3
## [19] glue_1.1.1 R6_2.2.2 rmarkdown_1.6
## [22] purrr_0.2.3 magrittr_1.5 backports_1.1.0
## [25] scales_0.5.0.9000 htmltools_0.3.6 assertthat_0.2.0
## [28] colorspace_1.3-2 stringi_1.1.5 lazyeval_0.2.0
## [31] munsell_0.4.3
接收的消息中的关键词
发送的消息中的关键词
共接收自定义表情信息2948条,其中非重复的表情一共有290个,接收的最多的一个表情180次。
表情包发送数目的前5位如下:
第 1 位: 180 次
第 2 位: 131 次
第 3 位: 116 次
第 4 位: 115 次
第 5 位: 111 次
共发送自定义表情信息1800条,其中非重复的表情一共有127个,发送的最多的一个表情193次。